function settitle(t)
%function settitle(t)
% Set a title of the current figure
set(gcf,'numbertitle','off','name',[t]);
return;
